home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 17 / CU Amiga Magazine's Super CD-ROM 17 (1997)(EMAP Images)(GB)[!][issue 1997-12].iso / CUCD / Programming / Gui4Cli / Dir / Dir.prot < prev    next >
Encoding:
Text File  |  1980-01-03  |  1.1 KB  |  56 lines

  1. G4C
  2.  
  3. winbig 0 0 130 135 ''
  4. wintype 00001000
  5. winonmouse 100 13
  6. varpath dir.gc
  7.  
  8. xOnInactive
  9. guiclose dir.prot
  10.  
  11. xOnRMB
  12. guiclose dir.prot
  13.  
  14. xOnLoad
  15. setscreen dir.prot $*SCREEN
  16. prt_1 = 1
  17. prt_2 = 0
  18. prt_3 = 0
  19. prt_4 = 0
  20. prt_5 = 0
  21. prt_6 = 0
  22. prt_7 = 0
  23. guiopen dir.prot
  24.  
  25. xonopen
  26. lvmulti first
  27. if $lv_file = ""
  28.    ezreq "PROTECT:\nHow's about choosing\nsome files first ?" OK ""
  29.    guiclose dir.prot
  30. endif
  31.  
  32. box 0 0 0 0 OUT BUTTON
  33.  
  34. xCheckBox   80 10  27 11 "No Delete"  prt_1 1 0 ON
  35. xCheckBox   80 25  27 11 Execute      prt_2 1 0 OFF
  36. xCheckBox   80 40  27 11 "No Write"   prt_3 1 0 OFF
  37. xCheckBox   80 55  27 11 "No Read"    prt_4 1 0 OFF
  38. xCheckBox   80 70  27 11 Archive      prt_5 1 0 OFF
  39. xCheckBox   80 85  27 11 Pure         prt_6 1 0 OFF
  40. xCheckBox   80 100 27 11 Script       prt_7 1 0 OFF
  41.  
  42. xButton 5 115 60 15 OK
  43. guiclose dir.prot
  44. setvar prot_flag ""
  45. appvar prot_flag $prt_1
  46. appvar prot_flag $prt_2
  47. appvar prot_flag $prt_3
  48. appvar prot_flag $prt_4
  49. appvar prot_flag $prt_5
  50. appvar prot_flag $prt_6
  51. appvar prot_flag $prt_7
  52. lvaction protect $prot_flag
  53.  
  54. xButton 65 115 60 15 Cancel
  55. guiclose dir.prot
  56.